home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 1 / LIGHT-ROM 1 (Amiga Library Services)(1994).iso / ffdisks / d883.lha / BBBBS / BBBBS59.lha / rexx / doorDemon.baud < prev    next >
Text File  |  1992-10-27  |  506b  |  25 lines
  1. /* $VERS: 5.7 doorDemon.baud 27 Oct 1992 (27.10.92)
  2. runs automatically whenever a rexxDoor is in use.
  3. */
  4.  
  5. CALL OPENPORT('BBS_DOOR_DEMON')
  6. secs=GETCLIP('BBS_door_demon')-20
  7. CALL TIME('R')
  8. DO FOREVER
  9.   CALL DELAY(250)
  10.   IF GETCLIP('BBS_door_demon')='QUIT' THEN
  11.     DO
  12.       CALL SETCLIP('BBS_door_demon')
  13.       CALL CLOSEPORT('BBS_DOOR_DEMON')
  14.       EXIT;
  15.     END
  16.   ADDRESS BAUD dcd
  17.   IF RC=0 | TIME('E')>secs THEN
  18.     DO
  19.       ADDRESS BAUD Send '03'x
  20.       CALL DELAY(250)
  21.     END
  22. END
  23.  
  24. /* doorDemon.baud */
  25.